10 REM **************************
20 REM *                        *
30 REM *    SMON TEIL 3 + 4     *
40 REM * VON N.MANN & D.WEINECK *
50 REM *     FLEETRADE 40       *
60 REM *     2800 BREMEN        *
70 REM *   TEL. 0421 / 493090   *
80 REM *        0421 / 231401   *
90 REM *                        *
100 REM **************************
110 FORI=0TO2:READA:PR(I)=A:NEXT
120 SA=51261:I=0
130 PA=SA+256*I:CH=0
140 FORJ=0TO255:READA:POKEPA+J,A:CH=CH+A:NEXT
150 REMIFCH<>PR(I)THEN200
160 I=I+1:IFI<2THEN130
170 PA=PA+256:CH=0
180 FORJ=0TO121:READA:POKEPA+J,A:CH=CH+A:NEXT
190 IFCH=PR(I)THENEND
200 PRINT"FEHLER IN BLOCK"I+1:END
210 REM
220 REM *** BLOCKPRUEFSUMMEN ***
230 REM
240 DATA34652,35523,16258
250 REM
260 REM *** BLOCK 1 ***
270 REM
280 DATA32,141,194,141,175,2,96,32,141,194,141,176,2,96,76,209,194,160,2,132
290 DATA188,136,132,185,132,187,136,132,183,32,202,194,201,34,208,234,32,202
300 DATA194,145,187,200,230,183,201,34,208,244,198,183,173,176,2,133,186,165
310 DATA172,201,83,240,19,32,194,194,240,9,162,195,32,128,194,169,0,133,185
320 DATA169,0,108,48,3,162,193,32,128,194,162,174,32,128,194,108,50,3,32,126
330 DATA194,32,202,194,73,2,74,74,8,32,128,194,32,81,195,40,176,12,165,253
340 DATA101,251,170,165,254,101,252,56,176,9,165,251,229,253,170,165,252,229
350 DATA254,168,138,132,252,133,251,132,98,133,99,8,169,0,133,211,32,117,198
360 DATA165,252,208,15,32,73,195,165,251,32,42,195,165,251,32,208,195,240,3
370 DATA32,35,195,32,76,195,162,144,165,1,141,177,2,169,55,133,1,40,32,73,188
380 DATA32,221,189,174,177,2,134,1,76,86,195,32,141,194,170,164,211,177,209
390 DATA73,32,240,163,138,168,32,154,194,56,176,169,32,184,194,160,8,72,32
400 DATA202,194,201,49,104,42,136,208,245,240,235,32,184,194,162,0,138,134
410 DATA251,133,252,168,32,207,255,201
420 REM
430 REM *** BLOCK 2 ***
440 REM
450 DATA58,176,132,233,47,176,4,56,76,196,200,133,253,6,251,38,252,165,252
460 DATA133,254,165,251,10,38,254,10,38,254,24,101,251,8,24,101,253,170,165
470 DATA254,101,252,40,105,0,76,52,201,32,122,194,169,55,133,1,162,4,189,135
480 DATA192,149,170,202,16,248,32,81,195,166,170,165,171,32,205,189,230,170
490 DATA208,2,230,171,169,68,32,210,255,169,193,32,210,255,160,0,177,251,132
500 DATA98,133,99,32,209,189,32,99,196,162,3,176,10,169,44,166,211,224,73,144
510 DATA227,162,9,134,198,189,125,192,157,118,2,202,208,247,76,110,195,32,122
520 DATA194,32,141,194,162,0,129,251,72,32,99,196,104,144,247,96,32,90,194
530 DATA165,166,208,2,198,167,198,166,32,48,202,134,181,160,2,144,4,162,2,160
540 DATA0,24,165,166,101,174,133,170,165,167,101,175,133,171,161,164,129,168
550 DATA65,168,5,181,133,181,165,164,197,166,165,165,229,167,176,29,24,181
560 DATA164,121,107,192,149,164,181,165,121,108,192,149,165,138,24,105,4,170
570 DATA201,7,144,232,233,8,170,176,207,165,181,240,15,76,209,194,56,162,254
580 DATA181,170,245,166,149,176,232,208,247,96
590 REM
600 REM *** BLOCK 3 ***
610 REM
620 DATA32,98,202,76,214,201,76,98,202,197,167,208,2,228,166,176,19,197,165
630 DATA208,2,228,164,144,11,133,180,138,24,101,174,170,165,180,101,175,96
640 DATA32,90,194,32,122,194,32,48,202,32,203,196,200,169,16,36,171,240,38
650 DATA166,251,165,252,32,70,202,134,170,177,251,133,181,32,74,197,160,1,32
660 DATA70,202,202,138,24,229,170,145,251,69,181,16,25,32,81,195,32,35,195
670 DATA36,171,16,15,177,251,170,200,177,251,32,70,202,145,251,138,136,145
680 DATA251,32,106,198,32,102,196,144,181,96